home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tspa2540.zip
/
TSUNT45.INT
< prev
next >
Wrap
Text File
|
1991-06-21
|
2KB
|
70 lines
{$B-,D-,F-,I+,N-,R-,S+,V+}
(*
Timo Salmi UNiT 4.0 to 5.0
A Turbo Pascal 4.0 unit to add TP 5.0 / 5.5 procedures and functions which
are missing in version 4.0
All rights reserved 8-Aug-90, 21-Jun-91
This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
ANY other usage, such as use in a business enterprise or a university,
contact the author for the terms of registration.
The units are under development. Comments and contacts are solicited. If
you have any questions, please do not hesitate to use electronic mail for
communication.
InterNet address: ts@chyde.uwasa.fi (preferred)
Funet address: GADO::SALMI
Bitnet address: SALMI@FINFUN
The author shall not be liable to the user for any direct, indirect or
consequential loss arising from the use of, or inability to use, any unit,
program or file howsoever caused. No warranty is given that the units and
programs will work under all circumstances.
Timo Salmi
Professor of Accounting and Business Finance
School of Business Studies, University of Vaasa
P.O. BOX 297, SF-65101 Vaasa, Finland
*)
unit TSUNT45;
(* ======================================================================= *)
interface
(* ======================================================================= *)
uses Dos;
(* =======================================================================
Informative routines
======================================================================= *)
{$IFDEF VER40}
type PathStr = string[79];
(* Since the function DosVersion to retrieve the Dos version is only
available in Turbo Pascal versions 5.0 and 5.5, we must write our
own for version 4.0 *)
function DosVersion : word;
(* The number of strings contained in the DOS environment *)
function EnvCount : integer;
(* The value of an environment string defined by index count *)
function EnvStr (index : integer) : string;
(* The value of an environment string defined by string id *)
function GetEnv (EnvVar : string) : string;
(* The name of the program *)
function ParamStr0 : string;
(* Expand a file name into a fully qualified file name *)
function FExpand (fname : PathStr) : PathStr;
{$ENDIF}